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VA 


b 
|v 
oes 1 FRAT E AEE EE AEE AREA AERA AAA AAAEAAATARAAARAARKERTAAAAREAAAATERAE AES 
3* 
B08 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
00 4 ;* DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. * 
999 5 - ALL RIGHTS RESERVE * 
. ® 
itd 5 3* THIS SOFTWARE IS pyri aaee UNDER A LICENSE AND MAY BE USED AND og i * 
0000 8 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 
0000 9 ;* CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS TWARE OR ANY ie * 
0000 10 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 11 3 THER PERSON. NQ TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
| 900 19 ;* TRANSFERRED. . 
° ® 
0000 14 ;* THE an an IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 15 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8006 16 a CORPORATION. * 
by ® 
0000 18 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 19 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 20 ;* * 
0000 21 3 * 
8000 $§ PRA ARATE ARERR EAA AAA AREA EATER AREA AAA AA AAA A AAA E TAKER e eee eee 
0000 24: 
0000 25 : 
st $8 ; AUTHOR BRIAN PORTER CREATION DATE 28-AUG-1979 
0000 28: 
0000 29 ; 
0000 30 ; 
0000 31 ; Modified by: 
0000 3 ; 
0000 a3 v01-004 EAD0201 Eiliott A. Braxton 24-Jul-1984 
44 <¢ ; Moved name block address into OUTPUT_NAM. 
0000-36: v01-003 £AD0194 Ellio Dra 6-Jul-1984 
4 * : Set the OFP bit in ay FOP on can up DNS and DNA. 
0000 39; v01-002 £AD0122 Elliott A. Drayton 1-Apr-1984 
44 29 3 Added psect definitions. 
0000 4¢ : v01-001 £AD0101 Elliott A. Drayton 29-F eb-1984 
0000 43 ; Make rab_address global. 
0000 44 ;-- 
0000 45 
0000 46 title useropen 
0000 47 -ident /V04-000/ 
0000 48 
0000 49 $fabdef 
0000 50 $Snamdef 
0000 51 Srabdef 
0000 26 
4 27 EXTERNAL OUTPUT_NAM 
0000 $00 55 -PSECT $code,usr,con, rel, Lcl,nowrt,novec,exe 
0000 BOOS 28 eentry sys$input. open “m<> 


————— 


H 1 
USEROPEN 15-SEP-1984 23:58:27 VAX/VMS Macro v04-00 Page « 
Vv “000 ant a 1 $33 714 CERF.SRCJUSEROPEN.MAR; 1 . (1) 
OOOOOO00"EF O08 AC DO 0002 8 movl (ap), sysSinput_rab_address 
5D OB AL 00 Soa 88 sovl Bap) <r ee 
046 a0 O01 +A O11 F oi o insv #1 ,#rab$Sv_cvt,#1,rab$l_rop(r0) 
14 6¢ $Sopen fab = a4(ap) 
O1E 6 
1650 €9 93 64 blbc r0,10$ 
50 04 AC 00 0021 65 mov | im | to 
O0000000'EF 40 A0 00 4 ; 96 mov | fab$l_dev(r0) ,dev_char 
002D 68 $connect rab = a8(ap) 
82 7 $2 
037 0 10$: 
04 0037 71 ret 
0038 LG; 
0038 7 
0000 Op ke fe -entry sys$output_open “m<> 
OOOGO004'EF O08 AC 00 ie a6 movl 8(ap),sys$output_rab_address 
0042 78 $create fab = a4(ap) 
004C 79 
16 50 €9 0Q04C 80 blbc r0,20$ 
50 04 AC DO OO04F 81 mov 4(ap),r0 
OO0O00000'EF 40 A0 00 th Hf mov fab$l_dev(r0) ,dev_char 
0058 84 $connect rab = a8(ap) 
0065 85 
0065 86 20$: 
04 0065 87 ret 
0066 88 
0066 89 
0000 ie + -entry lstlun_open “m<> 
OOOOOO08'"EF 08 AC 00 0068 92 mov 8(ap), \stlun_rab_address 
50 04 AC 00 0070 93 mov l 4(ap).r 
04 AO O01. 1D OF FO 0074 94 insv #1 .A#fab$v_ofp,#1, fab$l_fop(r0) 
5 AO 0A 90 007A 95 movb #10, fab$b-dns(r05 
30 AO QOOQOOO0C'EF 9E OOD7E 96 movab text, fab$T_dna(r0) 
00000000°EF 28 A0 DO 0086 97 movi _— fab$(_nam(70) ,output_nam 
44 99 $create fab = a4(ap) 
09 100 
16 50 =€9 Ope 101 blbc r0,20$ 
50 04 AC DO 9B 19 mov 2.00; «09 
O0000000"EF 40 A0 DO Sony 197 mov L fab$l_dev(r0) ,dev_char 
opal 105 $connect rab = a8(ap) 
| 081 106 
| 0081 107 20$: 
04 0081 £4108 ret 
pBs 109 
08 110 
0000 0084 ae -entry set_rab$v_rne “m<> 
50 00000004"°EF 00 64 113 mov | s shourput ret address,r0 
04 A0 O01 18 OF FO OOBB 114 insv #| ,#rabSv_fne,#1,rab$l_rop(r0) 
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V eset 7 3:38: 9 ERF .SRCJUSEROPEN.MAR; 1 - (1) | 
04 ret 
0000 eentry clear_rab$v_rne “m<> 
50 ore 04' 44 dO movl epee ut_rab_address,r0 
04 AO FO insv #0,#rab$v_fne,¥1,rab$l_rop(r0) 
04 ret 
0000 -entry set_rab$v_cco “m<> 
50 yoouyes" f 08 movl syspout ut_rab_address,r0 
04 a0 01 ty a #rab$v_Ctco,¥1,rab$l_rop(r0) 
re 


-entry clear_rab$v_cco “m<> 
mov l grsseut ut_rab_address,r0 
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04 AO 01 ins ,#rab$v_cco,41,rab$l_rop(r0) 
re 
0000 -PSECT $GLOBAL$,pic,noshr,novec,noexe 
sys$input_rab_address:: 
00000000 it . long 
000 sys$output_rab_address:: 
00000000 B28 -long 0 
000 lstlun_rab_address:: 
06000000 B28 -long 0 
53 49 4C 2E 47 4F 4C 52 52 45 000 text: ascii \ERRLOG.LIS\ 
0000000A 4 text_size: -LONG 10 
eae * | -psect devchar long,pic,usr,ovr,rel,gbl.shr,noexe,rd,wrt 
0000 dev_char:: 
00000000 0000 . Long 
0004 .end 
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mt | 
_USEROPEN 15-SEP-1984 23:58:27 VAX/VMS Macro V04-00 Page 4 | 
Symbol table niet} yi 93:38:91 PERE SRCJUSEROPEN MARS 1 . 1) | 
$$. TMP1 = 00000001 001 
$$. TMP2 = 0000008 | 001 
CLEAR_RABSV_CCO E2 RG 03 001 
CLEAR-RABSV_RNE RG 0 00! 
DEV_CRAR RG 04 00! 
FAB "ON S : 9 00! 
FABSL_DEV = 0000004 00! 
FABSL_DNA = 0000003 00 
| FABSL— =f OF 2 30088 4 00 
FABSL | = 494 8 00° 
FABSV~ OFF = 0000001D Q0' 
LSTLUR_OPEN 909 0 66 RG 02 Q0' 
LSTLUN~ RAB _ADDRESS 0 RG 0 00 
OUTPUT eeereeee XK 00 00 
RABSL_ oP. = 00000004 00° 
RABSV~CCO = 0000001F 00' 
RABSV_CVT = Q000001A 00° 
RABSV_RNE = Boones 00 
SET_RABSV_CCO 000000D2 RG 02 00 
SET-RABSV_RNE 000000B2 RG 02 00; 
SYSSCONNECT eeeneeee GX 02 00; 
SYSSCREATE aeeeeeee GX 02 00; 
SYS$INPUT_OPEN 00000000 RG 0¢ 00; 
SYSSINPUT_RAB_ADDRESS 00000000 RG sO 00 
SYSSOPEN eeerereer GX 02 00, 
SYSSOUTPUT_OPEN 00000038 RG 0S 00, 
SYSSOUTPUT. _RAB_ADDRESS 09000004 RG 0 00, 
TEXT QOO00000C R 03 00, 
TEXT_SIZE 00000016 R 03 Go! 
$$ ame wmocoaowrarr cman + Bo: 
' Psect synopsis ! 4 
p Sees Syeapate 3 03 
PSECT name Allocation PSECT No. Attributes Bo: 
$08 ite 00000000 < 0.) 00 ¢ 0.) NOPIC USSR CON ; to NOSHR NOEXE NORD NOWRT NOVEC BYTE 00 
SABSS 00000000 < 0.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 00: 
$CODE QOOOOOF2 ¢ 242.) O¢ ( g-) NOPIC USR CON REL LCL NOSHR- EXE RD NOWRT NOVEC BYTE 00: 
$GLOBAL$ QOO0001A ( 26.) 03 ¢ 3.) PIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 00: 
DEVCHAR 00000004 4.) 04 ¢ 4.) PIC USR OVR REL GBL SHR NOEXE- RD WRT NOVEC LONG 00 
sunecmacaeneouscoesassess + 00: 
' Performance indicators ! 00 
+ eet een wreonwr enone enrnre awe a es a 
Phase Page faults CPU Time Elapsed Time 00: 
Initialization 33 68 0 19 §:00:00.60 $0 
rennens processing 100 :00:(C0.4 0:00:01.31 4 
192 :00: 4:8 0:00:09.79 
ae Ee table sort :00:00. 8 : 0.66 
Pass 2 4 0:00:00.9 :00:01.8 | 
Symbol table output :00:00.04 8 :00.04 
Psect synopsis output :00: 83 0: B82 «Be 
Cross-reference output : 2 .00 0:00:00.00 
Assembler run totals 37 0:00:06.86 0:00:14.24 . 
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VAX-11 Macro Run Statistics 

The g.yorking set Limit was 900 pages 
25955 bytes_(51 pages) of virtua 


2 source Lines were read in Pass 
15 pages of virtual memory were us 


Macro Library name 
-$255$DUA28: [SYSLIBISTARLET. MLB;2 
578 GETS were required to define 1 


There were no errors, warnings or 


LS sens 


memory were used to buffer 


There were 30 pages of symbol table ag al ocat d to hold 476 non-local 
» producing object records in Fass 


oa to define 15 macros. 
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